inherited FRotinaCapturaTitulos: TFRotinaCapturaTitulos
  Left = 352
  Top = 271
  Caption = 'Gerar Lote de Remessa'
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 16
  inherited panel2: TPanel
    inherited BtnExec: TBitBtn
      OnClick = BtnExecClick
    end
  end
  inherited pnBg: TPanel
    object Label22: TLabel
      Left = 12
      Top = 17
      Width = 154
      Height = 16
      Caption = 'Modalidade de Pagamento'
    end
    object GroupBox3: TGroupBox
      Left = 9
      Top = 72
      Width = 276
      Height = 54
      Caption = '  Per'#237'odo  de Vencimento  '
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
      object Label5: TLabel
        Left = 135
        Top = 17
        Width = 7
        Height = 16
        Caption = 'a'
      end
      object Label6: TLabel
        Left = 8
        Top = 17
        Width = 16
        Height = 16
        Caption = 'De'
      end
      object DTINI: TDateEdit
        Left = 29
        Top = 17
        Width = 100
        Height = 21
        Ctl3D = False
        NumGlyphs = 2
        ParentCtl3D = False
        TabOrder = 0
        OnExit = DTINIExit
      end
      object DTFIM: TDateEdit
        Left = 152
        Top = 17
        Width = 100
        Height = 21
        Ctl3D = False
        NumGlyphs = 2
        ParentCtl3D = False
        TabOrder = 1
        OnExit = DTFIMExit
      end
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 11
      Top = 34
      Width = 355
      Height = 22
      Ctl3D = False
      KeyField = 'MOD_CODIGO'
      ListField = 'MOD_DESCRICAO'
      ListSource = DSModalidade
      ParentCtl3D = False
      TabOrder = 1
    end
  end
  object DSModalidade: TDataSource
    DataSet = QModalidade
    Left = 480
    Top = 56
  end
  object QModalidade: TQuery
    Active = True
    DatabaseName = 'base'
    Filter = '(MOD_ATIVO = '#39'A'#39') AND (EXCLUIDO = '#39'N'#39')'
    Filtered = True
    SQL.Strings = (
      'SELECT * FROM MODALIDADEPAGAMENTO')
    Left = 480
    Top = 96
  end
  object QContasPagar: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT * FROM PAGFOR_LOTE_CABECALHO')
    Left = 424
    Top = 152
  end
  object TPagFor_Cabecalho: TTable
    DatabaseName = 'base'
    TableName = 'PAGFOR_LOTE_CABECALHO'
    Left = 40
    Top = 176
  end
  object TPagFor_Itens: TTable
    DatabaseName = 'base'
    TableName = 'PAGFOR_LOTE_ITENS'
    Left = 120
    Top = 176
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = Query1
    Left = 728
    Top = 216
  end
  object Query1: TQuery
    DatabaseName = 'base'
    Filter = '(MOD_ATIVO = '#39'A'#39') AND (EXCLUIDO = '#39'N'#39')'
    RequestLive = True
    SQL.Strings = (
      'SELECT * FROM MODALIDADEPAGAMENTO')
    Left = 656
    Top = 232
  end
  object TContasPagar: TTable
    DatabaseName = 'base'
    TableName = 'CONTASPAGAR'
    Left = 232
    Top = 176
  end
end
